home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs30.d81
/
xmas.sda
/
CHRISTMASROOT
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
1KB
|
36 lines
0 REM
1 REM COMMODORE 64 CHRISTMAS ALBUM
2 REM
3 REM
4 REM MUSIC: WAYNE EASTWOOD
5 REM SPRITES/SCREENS: H. REX BOUCHER
6 REM DESIGN/PROG: STEPHEN MURRI
7 REM
8 REM
9 REM
11 POKE53280,0:POKE53281,0:PRINT""
12 PRINT"[147]THE COMMODORE 64"
13 PRINT"PRESS ANY KEY TO START"
15 GETI$:IFI$=""THEN15
20 GATE=22632:S1=GATE+16:S2=GATE+6*16+14:I$="":MARK=GATE+3:POKE54296,0
400 SYS50784:REM INTRO
510 SYS51976:J=094:K=20:A=00*16^3+12*16^2+15*16+15:GOSUB800:REM GOOD CHRISTIAN
520 SYS52832:J=088:K=25:A=05*16^3+00*16^2+13*16+03:GOSUB800:REM JINGLE BELLS
530 SYS52288:J=120:K=30:A=04*16^3+08*16^2+12*16+10:GOSUB800:REM SILENT NIGHT
540 SYS38912:J=035:K=80:A=04*16^3+01*16^2+05*16+07:GOSUB800:REM RUDOLPH
550 SYS52062:J=129:K=15:A=03*16^3+07*16^2+07*16+15:GOSUB800:REM ANGELS HEARD
560 SYS52496:J=062:K=40:A=01*16^3+07*16^2+06*16+03:GOSUB800:REM FROSTY
580 POKE 38534,56
590 SYS38144:J=112:K=15:A=08*16^3+07*16^2+13*16+00:GOSUB800:REM SALES PITCH
591 REM PRICE AT 9680 HEX
599 SYS52118:REM END
700 IF PEEK(40959)=1THENCLR:GOTO11
750 CLR:GOTO20
800 POKE54276,0:POKE54283,0:POKE54290,0:POKE54296,10:FORY=0TO500:NEXT
805 POKEGATE+13,A-INT(A/256)*256:POKEGATE+14,A/256
810 GOSUB850:FORY=0TOJ*2:NEXTY:RETURN
850 POKEGATE,0:POKEGATE+1,0:POKEGATE+2,0
860 SYS(S1):FORY=1TOJ:NEXT:IFK>0THENSYS(S2):FORY=1TOK:NEXT:SYS51973
870 IFPEEK(MARK)=0THEN860
880 RETURN